Option Explicit
Sub C_Sample029()
    Dim myRng  As Range
    Dim myFmcs As FormatConditions
    Dim myFmc  As FormatCondition
    Set myRng = Range("A1")					'Nxs
    Set myFmcs = myRng.FormatConditions
    With myFmcs
        .Delete
        Set myFmc = .Add(Type:=xlCellValue, _
        Operator:=xlEqual, _
        Formula1:="5")						']w榡
        myFmc.Interior.ColorIndex = 3			'wm
    End With
    Set myFmc = Nothing						'
    Set myFmcs = Nothing
    Set myRng = Nothing
End Sub

